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IDENT = Pett r 
BEGIN 


SRP ReERRAERAAAAAAAAAAAAAAAAAAAAAAEAEEAAAAAEAAAAAAAEAAAAERERAAAAERERAEEERAEEEE 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
:® DIGIT QUIPMENT CORPCRATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED 


:@ re ee is pyr seed UNDER A LICENSE AND MAY BE USED AND gt ht 
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ie INCLUSION OF THe ABOVE CoPymicut NOTICE. THIS SOF Th ARE OR ANY OTHER 
t® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
- is 3 + ad NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
» eORPORAT On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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S NOT SUPPLIED BY DIGITAL. 


Lee RARER AAAAAAAAAARAAAAAARAAAAEAAEAA AEA AAAE AAA AAAAAAAAAAEAAAAARAAAAEAEKEE 


lee 
| 


FACILITY: MOUNT Utility Structure Level 1 
i ABSTRACT: 


command Line from the CLI parser. 
i ENVIRONMENT: 


poe et operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 29-Sep-1977 16:58 
i MODIFIED BY: 


v03-013 HHO041 Hai Huang 
Remove REQUIRE ‘'LIBD$:CVASLIB.OBJJMOUNTMSG.B32°. 


y03-012 DAS0001 avid Solom 10-Jul-1984 
Add support for RNY SY _NOREBUILD (/NOREBUILD euittart. 
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H v03-011 HHOO Hai Huang 27-Mar-1984 
ty Security audit tine support, i.e. move MOUNT_FLAGS to 

et SGLOBALS psect. 

°¢ v03-010 HHO004 Hai Huang 09-Mar-1984 

6 Add cluster-wide mount Poa (/CLUSTER qualifier). 


v03-009 DAS0001 vies 29-Nov-1983 
Aga support for coos tying "pacieus ournal record size 
th a new keyword, /JOURNAL=(RECORD_SIZE=n). 


v03-008 oe dy 89 Meg Dumon 7-Jul-1983 10:00 
Make the default for AVLZAWR the same from the DCL call 
and from the system service call. 


v03-007 MMD0114 Meg D ont 29-Mar-1983 0:38 
Add support for new quati fers for AVL, AVR and VMS protection 


v03-006 $TJ4813 Steven T. Jettreys. 09-0c t-1982 
Initialize MOUNT_FLAGS before using it. 


v03-005 STJ0317 Steven T. eb 4, 15-Aug-1982 
Added support for journa Ling qualifers. 


V03-004 STJ0304 Steven T. Jeffre Aye 18-May-1982 
Added support for /NOUNLOAD qualifier. 


v03-003 STJ0260 Steven T. Jeffreys 14-Apr-1982 
Removed the device List nspection code added in update v02-016 


v03-002 $TJ0250 Steven T. Jeffreys, oenere ieee 
= Check for invalid device name status from S$GETDEV. 


v03-001 $TJ0238 Steven T. Jeffre 17-Mar-1982 
= Check for CMKRNL privilege if *yBROCESSOR=cti Lenene> specified. 


v02-018 S$TJ0230 Steven T. Jeffreys. 01-Mar-1982 
- Mt user is eying t¢ to a ggcess a@ non-existant drive 
return a status to yeeros cate such. This is an Teecovenent 
to update #16 to this aodule. 
- Close buffer probe protection hoie. 
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1982 
= Removed privilege Vrestiretions tor /mouint “VERIFICAT ON. 
- Zero GLOBAL and OWN storage to guaranty réstartability. 


v02-013 $TJ0173 Steven T. Jeffreys, 13-Jan-1982 
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1 v02-017 sTy0225 Steven I. Jeffreys, 17-Feb-1982 ; 
! 1 Fix incorrect probe of the users input parameters. ; 
108 vO2-016 140 Steven t. Jeffreys, 15-Feb-1982 . 
1 Sueep , the ae Be Uist to make sure that each 

: 5 specified device exists and is file-oriented. 

1 v02-015 $TJ0200 Steven T. Jeffre ey? 11-Feb-1982 

Add support for the /COMMENT qualifier. 

' v02-014 STJ0185 Steven T. Jeffrey 25-J 
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iecdeoctone 01:22:81 yc atits 


Modified to use the new SMOUNT interface. 


Previous revision history moved to MOUNT.REV 


ARY : SYSSLIBRARY: LIB sL 32"; 

IRE ' MOUDEF .B 

BRAR Ry rs ay tt ICLIMAC. L32) : 
BRARY 'SYSSLIBRARY: TPAMAC.L32’: 


' 

i 

i v02-012 $1J0157 Jeffr 04-Jan-1982 

i ded support wer te e” /DVERRIDESL otk /NOCACHE, and /MOUNTVER 
: ast fiers. Changed reference f SIGNAL to OPT_MESSAGE. 
i v02-011 $140152 Steven T. Jeffreys 02-Jan-1981 

: Extensive rewrite to support the YShOUNT system service. 

' VO2-010 STJO148 Steven 1. Jeffreys 16-Dec-1981 

to the front of the VOLSET parameter reference. 

i v02-009 BLS$0080 Benn Schreiber 14-Sep-1981 
Reference ‘BIND’ rather than ‘VOLSET’ for /BIND qualifier 

i v02-008 $TJ0109 Steven T. Jeffre 28-Aug-1981 

: Liberal rewrite as part of SMOUN "Support. 

i v02-007 $TJ0036 Steven T. Jeffre 11-May-1981 

: Added support for 7ASSIST qualif or. 

v02-006 ACG0167 Andrew C. Goldstein, 18-Apr-1980 13:38 
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mpure data area. This area contains th 
he command Line by the associated pars 


GLOBAL START 
MOUNT OPT IONS 


s 
PROTECTION, 
OWN 


STROCT_NAME 


DRIVE_COUNT 
DEVICE_STRING 
LABEL_ STRING 
JRNL_SIZE, 

JRNL- EXTEND, 

SRNE RECORD SIZE 
GLOBAL _END : 


ACP"NAME~B 
VOLSET_BOFF 


COMMENT BUFFER 
TPARSE_BLOCK 
OWN_END 
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Bag os arameters extracted from 


i RUJ byte quota per recovery unit 
! Mark end of global storage 


g routines. 


mark gtere of global storage 
! option flags 


ee poe option flags 

value of /PROTECTION switch 
value of / 
value of / 
value of / 
value of / 
value of / 
value of / 
value of /RECORD switch 

space to allocate for file ID cache 
space to allocate for extent cache 
space to allocate for quota cache 
Limit of disk free space to cache 
number of devices specified 

number of volume Labels apes tfted 
descriptor of VISUAL_ID string 
descriptor of COMMENT string 


descriptor of volume set name 
(value of Hag ualif 


J maximum record size 


! maximum length of a user comment 
! maximum sength of a string buffer 
! Length of each item descriptor 


! Mark start of OWN storage 

ITE spe VEN) ! Buffer for all device names 
IZE*DEVMAX], ! Buffer for all volume Labels 
ite . ! Buffer for the volume logical name 
IZEJ, ! Buffer for the user-specified ACP name 
IZE ! Buffer for the volume set name 
size ' Buffer for the user comment 

e ! contro oc 
NGTHOS i TPARSE L block 


Mark end of OWN storage 


11 
R = = 4 8 7 = ° = 
MOUPAR iB-Sen-1984 01:28:81 VAKGHI BLise=52 V4.0-742 age 5 


: q ! LITERAL ; 

3 5 f | Define the Lengths of the GLOBAL and OWN storage areas. 

; 737 3 GLOBAL LENGTH = GLOBAL END = GLOBAL START, 

; f OWN_LEAGTH = OWN_END = OWN_START: 

: 21 40 1 FORWARD ROUTINE 

i : ee } COPY_ITEM; ! Copy an item to iternal storage 
: 21 743 1 EXTERNAL 

3 13 4 1 pevenar DESC : VECTOR, 

3 1 45 DEVICE CHAR : BBLOCK, 

3 1$ 746 «1 NEWL INE : BBLOCK 

3 i g CTLSGL_PHD : ADDRESSING_MODE (GENERAL); 

; i3 749 1 FORWARD 

3 0 ? 9 1 ACP_KTB : VECTOR 03. ' TPARSE table Label. 

3 1 : ACP_STB : VECTOR 3 ! TPARSE table Label. 

; 5 7 j 1 MACRO 

3 & 754 #1 ! 

: 5 2 ! Symbolic offsets into an item descriptor 

; 0757 1 LENGTH = 0, 8. 16, O2, ! Length of item (in bytes) 
3 8 0758 1 CODE 2. Be Bee Gee ! {tem code 

3 9 184 1 ADDRESS = 4, 0, 35° 0%, ' item address 

; 3 37 e0 : UNUSED = 8, 0, 32, 02; ! reserved for future use 


M11 

16-Sep-1984 01:22:31 VAX-11 Bliss-32 V4.0-742 P 
12-360-1382 93:28: 3] DISKSVMSMASTER: MOUNT. SRCJMOUPAR.B32:1~ (3) 
GLOBAL ROUTINE CHECK PARAMS (ITEM_LIST) = 


' Functional description: 


This routine is poepen "ete for validating the parameters passed 
by the SMOUNT system service call, and copyin them to internal 
storage areas. The validation consits of: 


- Probing each parameter for read access. 
- copying each parameter to an internal area. 
= Sanity checks on the parameter values. 


SISELSESER 


FUN (“OOD NOUS WOO 


Input: 
None. 


Pee 
-—o NEw s 
OOGOOOCOOCOCCOOOOOO 


pn Sn i i in i i i 


C8099 0908 INNIS 


Implicit Input: 
None. 
Output: 
None. 
Implict output: 


bette 


Mount's internal data storage is initialized. 


GOooooooooooo: 


SANS NNN 
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50 
33 
38 
54 
3 
35 
i 
60 9 
61 $9 Side effects: 
$¢ 91 
o tas None. 
#4 O795 Routine value: 
67 re SS$_NORMAL : Normal successful completion 
68 079 SS$_ACCVIO : A parameter was not readable 
9 8238 SS$_BADPARAM : Bad parameter value 
A 44 MOUNS_CONFQUAL : The command has conflicting qualifiers 
Le: OB0t -- 
7 8 $ 
n BEGIN 
6 5 BUILTIN 
7 AP ! Arguement pointer 
re PROBER; ! Probe for read access 
80 EXTERNAL ROUTINE 
81 1 LIBSTPARSE : ADDRESSING_MODE (GENERAL); ! Finite state parser 
: \ LOCAL 
1 PHD : REF BBLOCK, : prqcess PHD 
5 14 ITEM : REF BBLOCK, ! Pointer to item List 
15 PTR : LONG ! Temporary storage 
1 STR_DESCRIPTOR : REF BLOCK, i Temporary descriptor 
1 JRNC_ITEM_SEEN : ‘ ' A boolean 
18 DENSITY : LONG, ! Tape volume density 
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STATUS : LONG; ! Store routine status code 
' 


i Zero the GLOBAL and OWN storage ares to guaranty the 
} restartablity of the code. 


CHSFILL (0, GLOBAL_LENGTH, GLOBAL_START); 
CHSFILL ( OWN_LERGTH, QUN_ STARTS; 
MOUNT_FLAGS 0,°0, 32, 0) ="0; 


Initialize the TPARSE control block. 


TPARSE_BLOCK CTPASL_COUNT] = TPASK_COUNTO; 
TPARSE_BLOCK CTPASL_OPTIONS] = (TPASM_BLANKS OR TPASM_ABBREV); 


LQRRRRRAERARAAAAEAAAAAAAAAAAAAAERAAAAAAEAAAERAAAARAEKEREKKERKEKERKEKKEES ! 


Interpret each item in the item list. After doing some 

sanity checks for each parameter, copy it to the internal 

stora ° gree. This is done to protect the data from corruption 
by malicious users. The item List is terminated by an item 

ng th ag with an item code of 0. Items with a zero length are 
rejected. 


SOOGOOGOCOOCOCOOOOOOCOOCOSOOOooOoO 
09. 090909 09 CO C2. 09 CD CD 

— 

SOUP MP MISONO UO 


SS Se eee eee 


fwn—o 


Since a given item aty appear in the List more than once, we must be 
careful to reset any item context for each version of the item. A } 
good example of where this is necessary is for the MNTS_DENSITY item. ! 
PITTITITITILILILILI LLL LIL LLL LLL LLL LLL LLL LLL LLL LiL Littl 


MOUNT OPTIONS = MOUNT_OPTIONS+4 = 0; 
= i: 


RNL_ITEM N = 0; 
Devitt ER SEEN 0:° 


LABEL_COUNT = 0; 
ITEM = .ITEM_LIST; 
i wor PROBER (ZREF (0), XREF (4), ITEM CO, 0, 32, 03) ! The first 4 bytes must be readable 


RETURN (SS$_ACCVIO); 
WHILE .STATUS AND (.ITEM CCODE] NEQ 0) DO 
BEGIN 


OOOOoooooooosooo 
S262 G2 62 62 Goo Ge Ge Ge Ge Ge 
PP AAMMAUIUIUIVT &- 


ooo 
00000 


OOOONO ULE WH "OOO NOW 


PROBE the next 12 bytes. which includes the remainder of this item 
descriptor and the first longword of the next one. If Pups tate 
items are declared, then the value last encountered will be 

The exception to this are device names and volume Labels. 


As new items are defined, a corresponding entry must be made in 
the select table defined below. 


4 NOT PROBER (ZREF (0), ZREF CITEM_SIZE), . ITEM) 
STATUS = SS$_ACCVIO 


ELSE 
BEGIN 
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STATUS = sean” sm ITEM CCODE] OF 

1 


The following items are character strings. 
CMNTS_DEVNAM) + (LF DEVICE COUNT LSS DEVMAX 


COCO CO INI“ 


5; 
T- rapes = MIN 
NT-1)#2)41] = 
E, .DEVICE_STR 


2 
mMmoavwvIolTlz 
Zommmo 


ELSE 
MOUNS_MAXDEV) ; 


CMNTS_VOLNAM) df eee COUNT LSS DEVMAX 


AMEN OOS NAUE WN OODONO 


09.0000 0900 00: 
S ODOO0000 


BEGIN 
MOUNT -OFTIONS COPT Lage = 
AB IN L NT ! 


hat 3 PORES RANNA NNN Be be be 
0 VMFWN—OOONOULS WIN —O0O~) 
OOQCooooooooooooooooooo 


BUFFER + (BUFFER 
((.LABEL_COUNT=1 


SE 
MOUNS_MAXLAB) ; 


CMNTS_LOGNAM) : BEGIN 
MOUNT OPTIONS COPT_LOG_NAME] = ! Mark the logical n 
LOG_NAME [0] = MIN” (. ITEM LencTia, BUF FER_SIZE); 

LOG-NAME C1) = LOG_NAME BUFFER 

STATUS = COPY_ITEM™(.ITEM, BUFFER_SIZE, LOG_NAME_BUF FER); 


Scan for a trailing or imbedded colon. If found, 
use the string preceding the colon. 


PTR = CHSFIND_CH (.LOG_NAME CO], .LOG_NAME [1], ':") 
IF NOT CHSFAIC (.PTR) 


N 
LOG_NAME [CO] = .PTR - .LOG_NAME [1]; 
STA TUS” 


CMNT$_PROCESSOR] : eeeie 
GTHI, BUFFER_SIZE); 


iP _NAME_BUF FER) 
CMNT$_VOLSETJ 
uer Wwe ave fT} SY zs LENGTH). BUFFER_SIZE); 
= 
oT, 
nite aN ITEM, 6 -_— _BUFFER) 


OO000 


6 
; 
? 
? 
? 
? 
? 
7? 
5 
5 
6 
; 
? 
> 
7? 
? 
? 
? 
$ 
5 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
; 
6 
6 


~ 


COPY_TTEM (.ITEM, %, ACCES 
END; 
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9 ! 
8 ! The a fe items are integer values, 
H and are all longwords (4 bytes in length). 
9 . 
i CMNTS_FLAGS] : COPY_ITEM (. ITEM, 4, MOUNT_FLAGS); 
9 CMNTS_ACCESSED] : BEGIN 
9 MOUNT_OPTIONS COPT_ACCESSED] = 1; 
9 SED) 
09 
84 
9 


CMNT$_BLOCKSIZE] : BEGIN 
MOUNT OPTIONS COPT BLOCKSIZE) = 1 


SOOWONAMNES WN OO OONAOVE WN" OOWONOULEW 


WAI POPOPOPOPOPOPUPUN) 2 2 OO oO 
SEUSERENEESENSORENSSasonrn-SSBSEER 8 


; 4 
; 4 
; 4 
; 4 
: 6 
. 2 
; 4 49 6 
3; 4 41 6 
s «& 4 
if 
: 4 45 6 
ce 094 § : 
; 4 094 f IF (STATUS = COPY_ITEM (.ITEM, 4, BLOCKSIZE)) 
; 4 09% 6 If ,BLOCKSIZE GTR 65534 
Te 0951 6 STATUS = MOUNS_SZTOOBIG; 
3s 4 95 STATUS 
4 95 END 
: 4 954 5 : 
: 4 $92 é CMNT$_DENSITY] =: BEGIN 
> 4 0956 6 MOUNT_OPTIONS COPT_DENSITY) = 1; 
. & 0957 6 MOUNT-OPTIONS COPT-DENS 800) = 0; 
: 4 095 ‘ MOUNT-OPTIONS COPT~DENS~1600) = 0; 
; 4 099 i IF (STATUS = COPY_ITEM T.ITEM, 4, DENSITY) 
; 4 0961 6 SELECTONE .DENSITY OF 
3 : MOUNT_ N _DENS_ = 1; 
4 oes 6 00) MOUNT_OPTIONS COPT_DENS_800) = 1 
> 6 0964 6 1600 : MOUNTIOPTIONS COPT DENS-1600) = 1; 
: 4 0965 6 6250 : 41: 
i 0966 6 OTHERWISE] : STATUS = MOUNS_BADDENS; 
: 4 0967 6 TES; 
2 BBE at 
> 441 0 . 
> 46 0371 é CMNT$_EXTENT) : BEGIN 
> 66 72 6 STATUS = COPY_ITEM (.ITEM, 4, EXT_CACHE); 
> 466 973 6 MOUNT_OPTIONS~COPT_NOEXT_ CJ = 0; 
> 445 7 6 MOUNT“OPTIONS COPT~CACHE? = 0; 
: 446 979 6 IF gERT CACHE Lea 6 
: 448 3 g MOUNT_OPTIONS COPT_NOEXT_C) = 1 
> 449 978 6 ELSE 
; 430 79 6 STAROUNT=OPTIONS COPT_CACHE) = 1; 
: 45 1 END; 
: 438 : 
: 454 9 4 6 CMNT$_FILEIDJ : BEGIN 
+ 455 & STATUS = COPY_ITEM (. ITEM, 4, FID CACHE); 
: 496 5 MOUNT_OPTIONSLOPT_NOFID_€) = 0; 
: 45 MOUNT“OPTIONS COPTCACHE] = 0; 
: 458 9 If .FIO_CACHE LEQ T 
: 459 8 THEN : 
Py ave s 
460 MOUNT_OPTIONS COPT_NOFiD_C) = 1 


< 


SIaNoo 


bl le le Ph aha Ded he Wl We ek De ad Dek dak Deke edad dak dk ee ee te 
SPESISSEESEPERE 


SRLEARRENLS SELES 


Be Se Ge Se Ge Fe Se Fe Se Ge Ge Ge Fe Se Ge Ge Ge Fe Ge Se Ge Se Se FF Se Ge Fe FFs Se Ge Se Se Se Se Se Se Se Ge Sse Se Se Se Sees Sete Sees te Gees ee Ge ee 


PUPPVPWAPPTAP AAA AAAI 


a et a ed a dt 


NOUSWN Oo 


18-$e0-198 9bE8i8] UNS ebunGhAS FERS cHGUNT ¢Rcamoupar.as20%%* «49 


990 ELSE 
99 MOUNT. CPTIONS COPT_CACHE) = 1; 
99 . STATUS 
9 END; 
CMNTS_LIMIT) : COPY_ITEM (.ITEM, 4, EXT_LIMIT); 
CMNTS_OWNER] 


: BEGIN 
MOUNT_OPTIONS COPT_OWNER_UIC] = 1; 
oad Y_ITEM (. ITEM, %, OWNER_ vic) 


CMNT$_VPROT] : BEGIN 
MOUNT OPTIONS COPT pron’ ON] = 
etre ITEM (.ITEM, &, TION) 


SEER SSE SE 


DDR PAPA PRDXPD PAP PIP DA DML PDD IPAM PAA AAA AAA SA AAA A A UII AO 


CMNT$_QUOTA) 


oO 
DwNO 


MOUNT_OPTIONS”COPT_NOQUO_¢] = 
MOUNT. te OPT’ CACHE = 0; 
UF eg t0O=tAC LEQ 0 


MOUNT_OPTIONS COPT_NOQUO_CJ = 1 


ELS 
cra MOUNT OPT 1ONS COPT_CACHE) =1; 
END; 


BEGIN 
STATUS = COPY_ “fo EM (. ITEM, 4, re CACHE) ; 
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CMNTS_RECORDSIZ] : BEGIN 
opal OPTIONS COPT_RECORDSZ]) = 
(STATUS = COPY_ITEM ( (ITEM, ti RECORDSZ)) 


N 
IF .RECORDSZ GTR 65534 
STATUS = MOUNS_SZTOOBIG; 
ta 


CMNTS_WINDOW] : BEGIN 
MOUNT OPTIONS COPT myn tote = 1; 
enpt- TTEM (. ITEM, %, WINDOW 
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CMNTS_EXTENSION] : BEGIN 
MOUNT OPTIONS COPT_EXT 
COPY. ITER ITEM, Sere 


CMNTS_COMMENT) : BEGIN 
ae a newline (<cr><lf>) to the front of the comment string. 
OPT 1ONS fp oment ® 
CONNER T.StRING -f i IN ( “aTen’ ELENGTHI. COMMENT_SIZE) + .NEWLINE 
= 


CORRENT 5 TRING ENT _BU 
CHSROVE™C Thine {2 COSCSW SU LENGTH. PEWL INE COSCSA_POINTER], COMMEN 
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PAR S$ep-1984 01:22: VAX-11 Bliss-32 V4.0-742 P 1 
YOL~ 000 1b-¥ep-1984 94:28:31 DISKSVMSMASTER: CMOUNT. SRCJMOUPAR .B32; A as (df 
RERAAAAALARAAAAAAERAAARAAAEAAARAAEEHEREOHEEAEAAAEETEAAAAEERKEeAAHAeeKEeEe ! 


i Now perform some additional sanity checks on each of the perenetere, 
i she | oaths of the processing is not —_ ant. Note that 
vilege che c 


SFISISIIVIT 


! of f ‘ actus ournalT ng code to check the user sup lied values for 
: validity, @ > aely 2 efault values where appropriat. 


Note that sestii panagoes. and MNTSV_NOJRNL are mutually exclusive. 


Bese eaNss 


IF f -MOUNT_OPTIONS COPT_NEWJRNLJ AND .MOUNT OPTIONS COPT NOJRNLJ) 
OR (.JRNL_ITEM_SEEN AND-NOT .MOUNT OPTIONS COPT_NEWJRNLIJT 


0 
1 HEN 
§ RETURN (MOUNS_CONF QUAL) ; 


; 559 1087 

; 560 1 

: e : 
: 56 1091 i pr cking is done here, and ex “he aman privilese” i 
3 rf: : 3 Status codes are Peturnes to make SMOUNT more ps RK, 5 } 
: $8 1094 PITITITIIIITITITIIIIILI LITT LLLLLiL itil LiLi lili Lit iii titi it iid 
2 on ee 

: 9 } 3 Set the appropriate mount option flags. 

; fo 1 ROUNT OPTIONS per _CLUSTERJ = .MOUNT_FLAGS Vevectus tee ji 

s 37 11 MOUNT-OPTIONS COPT-SYSTEM) = .MOUNT_FLAGS TeV. arte 

s of 11 MOUNT_OPTIONS [OPT GROUP) = .MOUNT FLAGS GROUP] 

; 574 11 : MOUNT-OPTIONS COPT-MOUNTVER] = NOT .MOUNT _F LAGS fans TSV Cas TVERI; 
; 575 11 MOUNT_OPTIONS LOPT_NOQUOTA) = .MOUNT_FLA Ags. nurs¥ NODTSK QJ); 

; 278 11 MOUNT_OPTIONS LOPT_NOHDR3) = .MOUNT_FLAGS nas) $ 

. or 1105 MOUNT_OPTIONS T_ SHARE = .MOUNT- FLAGS cy E 

; 578 11 MOUNT _OPTIONS T_WRITE = NOT .MOUNT_FLA TaySih NOWRITE); 

: 44 119 MOUNT_OPTIONS LOPT_NOCACHE) = NROUNT. FLAGS Sat V_NOCACHE); 

; 580 1198 MOUNT_OPTIONS [LOPT_OVR_LOCK) = .MOUNT_FLAGS [LMNTSV_OVR Lock); 

; 581 11 MOUNT_CPTIONS “MESSAGE = .MOUNT_FLAGS [MNTSV_MESSAGE); 

; 286 1110 MOUNT_OPTIONS LOPT_READCHECK]. = .MOUNT_FLAGS [MNTSV_READCHECK); 

; 58 1111 MOUNT_OPTIONS aura gnc kd = .MOUNT_FLAGS [LMNTSV “WRITECHECK I; 

: 584 1336 MOUNT_OPTIONS _WTHRU = ,MOUNT FLAG pasrey WRITETHRUIJ; 

: 585 111 MOUNT_OPTIONS [LOPT_ASSISTIJ = NOT .MOUNT_FLA “EAR sy NOA S81); 
3 56 11146 MOUNT_OPTIONS LOPT_FOREIGN = MOUNT PLAGS OREIGN : 

; 38 1115 MOUNT_OPTIONS LOPT_OVR_EXP = MOUNT =F tas aNTSV~ “OyR. typ 

§ 4 1118 MOUNT_OPTIONS [OPT_OVR_IDJ = .MOUNT_FLAGS CMNTSV_OVR_IDE nid: 

: 9 111 MOUNT-OPTIONS [LOPT"OVR-SETID] = .MOUNT_FLAGS CMNTSV_OVR_SETID 

; 590 1113 MOUNT_OPTIONS LOPT_OVR pa = ,MOUNT_ FLAGS nNTSV— _OVR “ACCESS); 

; 591 111 MOUNT-OPTIONS [OPT-BLOCK = 1; 

H 298 1120 MOUNT_OPTIONS LOPT_NOUNLOAD a .MOUNT_FLAGS ANTSV-NOS NOUNLOADI; 

; 59 1121 MOUNT-OPTIONS [COPT-NOJRNLJ = .MOUNT_FLAGS RNLJ; 

: 59% 11 ; MOUNT-OPTIONS [OPT “NEWRNLJ = {MOUNT-FLAGS CMNTSV~ “NEWIRN i; 

; 595 11 MOUNT_OPTIONS _NOAUTO = .MOUNT_FLAGS CMNTSV~ 

: 38 1124 MOUNT_OPTIONS LOPT_INIT_ALLJ = .MOUNT_FLAGS WNTSVINIT ALL) 

; 59 1125 MOUNT_OPTIONS TLINIT_CONT] = .MOUNT_FLAGS LMNTSV_INIT ONTI: » 

: 598 11 $ MOUNT_OPTIONS T-OVR_VOL = .MOUNT-FLAGS CMNTS$¥_OVR_ JO : 

3; 599 11 MOUNT-OPTIONS [LOPT_INTERCHG = .MOUNT-FLAGS CANTSV_INTERCHG 

; 1 3 MOUNT-OPTIONS COPT“NOREBUILD)] = .MOUNT_FLAGS CMNTSV “NOREBUILDS; 

: 11 res 

: 11 ° i Process frarsy R quel ifoers. The valued parameters may o aly 
; 1 § i be s ss the) % MNTSV_NEWJRNL is specified. It is the responsibility 
: 11 

: 1135 

: 11 

: 11 

3 11 

: 11 

: 11 

: 11 

: 11 

: 11 
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ates Pa Pa 
lee 
} Parse the ACP name, if one was provided. 


IF _ .ACP_STRING NEQ 0 
THE 
BEGIN 


i call TPARSE to interpret this parameter. ALL the work 
: s done by the action routine. 


STR DESCRIPTOR = ACP_STRING 


PARSE _BLOCK TPASL_STRINGCHT) = STRDESCRIPTOR [DSCSW_ LENGTH; 
TPARSE“BLOCK ETPASL =STRINGPTR] =| STR DESCRIPTOR DSCSA“POINTER); 
IF NOT (STATUS = LIBSTPARSE (TPARSE_BCOCK, ACP_STB, ACP7KTB)) 


N 
RETURN (.STATUS); 
| If the ACP string is a cevice or file name, copy it to internal storage. 


if .MOUNT_OPTIONS COPT_SAMEACP 
OR_ MOUNT OPTIONS OPT"F ILEACP 


the volume is being mounted CLUSTER without the /SYSTEM or /GROUP 
alifier, force it to be mounted SYSTEM. 


F_ .MOUNT_OPTIONS COPT CLUSTER] 
D ( NOT TMOUNT_OPTIONS COPT_GROUP] ) 


MOUNT_OPTIONS COPT_SYSTEM] = 1; 


ae 
c- 


mt + 
=x 
m 
=z 


the volume is not being mounted SHARE, GROUP, or SYSTEM, 
en assume that the volume is being mounted NOSHARE (the default). 


(NOT .MOUNT_OPTIONS per SHARE 
(NOT .MOUNT_OPTIONS [LOPT_GROUPJ) 
(NOT .MOUNT_OPTIONS COPT_SYSTEMJ) 


MOUNT_OPTIONS COPT_NOSHARE) = 1; 


tee ee 
Cs Mend 
Pe) 


F 


ze 


t 
i If the volume is being mounted GROUP, then it 
' cannot be mounted SHARE” or SYSTEM. 


F_ MOUNT _OPTIONS torr GROUP) 
(.MOUNT_OPTIONS COPT_SHARE] OR .MOUNT_OPTIONS COPT_SYSTEM]) 


RETURN (MOUNS_CONF QUAL) ; 
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H 12 
eSep-1986 2:68:31 DISKSYMSRASTE 


If the volume is being mounted SYSTEM, then it 
cannot be mounted SHARE, or GROUP. 


F_ MOUNT _OPTIONS ay itis 
AK (.MOUNT_OPTIONS COPT_SHARE] OR .MOUNT_OPTIONS COPT_GROUP) 


"RETURN (MOUNS _ CONF GUAL) ; 


te te eo 


ze 


f the volume is being mounted SHARE then it 
annot be mounted SYSTEM or GROUP. 


F_ MOUNT OPTIONS COPT SHARE] 
p ¢ -MOUNT_OPTIONS COPT_SYSTEM] OR .MOUNT_OPTIONS COPT_GROUPJ) 


RETURN (MOUNS_CONF QUAL) ; 


De ted 
on 


== 
nm 
z= 


; not allow user to override volume identification if requesting 
SYSTEM, GROUP or SHARE mount. 
IF T_OPTIONS COPT_OVR_ID) 
AND ( MROUNT OPTIONS COPT_ sysTeny OR 
*ROUNT “OPTIONS [OPT-GROUP] OR 
— -MOUNT“OPTIONS COPT SHARE )) 


RETURN (MOUNS_CONF QUAL) ; 


If no device names have been seen, 
reject the mount request. 


] 

; 

i 

if NOT -MOUNT_OPTIONS COPT_DEVICE] 
RETURN (SS$_BADPARAM) ; 


! 
i If no volume Label seen, make sure the user has 
i done this on purpose. if not . exit 


1 

if ! Indicate volume Label seen 
AND NOT (¢ ¢ ROUNT OPTIONS 

THEN 


NOT .MOUNT gith “foe LaeRCT on 
T-OPTIONS COPT-FOREIGN)) 
NRETURN (SS$_BADPARAM) ; 
' 
i If the device ing mounted /FOREIGN, then many of 
i the q ualitiers yA oh do oieh't LES-11 are not Legal. 
iF .MOUNT_OPTIONS COPT_FOREIGN 
AND ¢.MOUNT_OPTIONS [LOPT_ACCESSED) OR 
eMOUNT-OPTIONS [OPT-UNIQUEACP) OR 
-MOUNT_OPTIONS OPT~ _FILEACP OR 
-MOUNT“OPTIONS COPT~ _SAMEACP OR 


Dus 


2.V4.0-742 
: CMOUNT . SRCJMOUPAR.B32; 
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eMOUNT_OPTIONS [OPT_BIND) OR 
«MOUNT_OPTIONS [LOPT CACHE) OR 
«MOUNT_OPTIONS LOPT WINDOW) OR 
«MOUNT_OPTIONS LOPT_EXTENSION] 


N 
RETURN (MOUNS_CONF QUAL) ; 

1+ 

} Perform some preliminary privilege checks. 

PHD = .CTLSGL_PHD; 

IF MOUNT ft COPT GROUP) 

we, NOT .BBLOCK CPHD CPHD$SQ_PRIVMSK], PRVSV_GRPNAM] 
RETURN (SS$_NOGRPNAM) ; 


IF .MOUNT OPTIONS COPT SYSTEM) 
AND NOT .BBLOCK CPHD CPADSQ_PRIVMSK], PRVSV_SYSNAM] 


THEN 
RETURN (SS$_NOSYSNAM) ; 
IF (.MOUNT_OPTIONS COPT_UNIQUEACP) OR 
-MOUNT-OPTIONS COPT-SAMEACP OR 
«MOUNT OPTIONS per FILEACP)) 
AND NOT -BBCOCK CPHD CPHBSQ_PRIVMSK], PRVSV_OPER] 
RETURN (SS$_NOOPER) ; 


IF .MOUNT OPTIONS COPT FILEACP) 
AND NOT .BBLOCK CPHD CPADSQ_PRIVMSK], PRVSV_CHKRNLJ 


THEN 
RETURN (SS$_NOCMKRNL) ; 


lee 
! If we get this far, the parameters have passed the 


preliminary checks. Return a successful status. 

SS$_NORMAL 

END; ! End of 
TITLE 
- IDENT 
-PSECT 


00000 OWN_START: 
.BLKB 

00000 DEVICE_BUFFER: 

003FO LABEL_BUFFER: 


! Get the process header addre 


! If /GROUP, user must have GRPNAM 


! If /SYSTEM, user must have SYSNAM 


! This check must be performed AFTER the /PROCESSOR 


! qualifier has been processed. 


Must have CMK to use 
a special ACP 


routine CHECK _PARAMETERS 


et hers 
\v04-000\ 


SOWNS ,NOEXE ,2 


1008 


‘ 


se 


0h 1 0 0 0 OO A PE fares rsa Morar mrp ra rarnranfra ra rarwrnMran~wmrwsrsa 


iit 


ibdeo-t964 01:28 


-BLKB 
007E0 LOG_NAME “BUFFER: 


80820 ACP _NAME “BUFFER: 
~BLKB 


$0880 VOLSET_BUFFER: 
~BLKB 


ooger -BLKB 
AO COMMENT BUFFER: 
008FO TPARSE_BLOCK: 
-BLKB 
00914 OWN_END: .BLKB 
-PSECT 
00000 GLOBAL_START::: 
00000 MOUNT_OPTIONS: : 


-BLK 
- 00008 RONET FLNSS 


BLK 
0000¢ PROTECTION: : 
00010 OWNER_UIC:: 
00014 USER_UIC:: 
-BLKB 
00018 EXTENSION: : 


-BLK 
0001C WINDOW: : .BLKB 
00020 ACCESSED: : 


BL 
00024 BLOCKSIZE: : 
00028 RECORDSZ: : 
BLK 
0002C FID_CACHE:: 
BLK 
00030 aha 
00034 QUO_CACHE :: 
00038 EXT_LIMIT:: 
0003¢ DEVICE COUNT: 
00040 LABEL _COUNT: 
00044 VID_STRING:: 


-BLKB 
0004C COMMENT_STRING:: 


-BLKB 
00054 ACP_STRING:: 
-BLKB 


3} piScdimsnast 
1008 
3 


3 
80 


36 
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$732 V4.0-742 
TER: CMOUNT . SRC 


P 1 
JMOUPAR.B32:1>— (ls 


VO%-000 


01BC 
0914 


8F 
8F 


00 
00 


0000° 
0000° 


2 V4.0- 
a HGUNT SRCIMOUPAR.B3201°" (4 


SU 


Hebe 2339] YEH BAS 


0005C LOG_NAME:: 


.BLKB 8 
00064 STRUCT AN 3 
0006C DRIVE_COUNT:: 

BLKB 64 
OOOAC DEVICE_STRING:: 

.BLKB 128 
0012C LABEL_STRING:: 

BL 128 
O01AC JRNL SIZE: . 
00180 JRNL EXTEND , 
001B4 JRNL_QUOTA:: 

.BLKB 4 
00188 JRNL_RECORD S1ZE:: 
001BC GLOBAL_END:: 

.BLKB OO 


.EXTRN DEVCHAR. DESC peyice _CHAR 
SEXTRN NEWLINE, CTL$GL_PHD 
sEXTRiW =LIBSTPA Fase 


-PSECT SCODES,NOWRT,2 


OFFC 00000 ENTRY CHECK PARAMS, Save R2,R3,R4,R5,RO,.R7,RB,R9,-; 0762 
0000" i i: 9002 state AL START, R11 ; 
0 sé 900A MOVCS #0. (SP), #0, #444, GLOBAL_START ; 
sneer 09 2c 0012 movcS #0, (SP), #0, #2324, OWN_START : 
Se a oe acc : 
04 AB ee CLRG = MOUNT_OPTIONS+4 : 
ce bs CLRL MOUNT OPTI : 
a eee : 
3 aC 6 MOVL ‘ITEM bIST ITER : 
PROBER #0, #4, (i : 
4 BNEQ 1$ : 
C ROVL #12, RO ; 
58 58 F 1$ BLBS STATUS, 2$ : 
04¢D BRW 2$ : 
02 Ag 2s TSTW (ITEM) ; 
03 tA Bru. 
p D 38 PROBER #0, #12, (ITEM) ; 
0¢ ‘ ; MOVL #12, STATUS : 
02 A ‘ 4$ MOVZWL 2(ITEM), R2 : 
52 8B C CMPW OR, : 


° 
e 
° 
° 
e 
° 
e 
a 
@ 
a 
c 
os 
o 
7 
2 
. 
o 
° 
eo 


Sete Fe ee Ge F2 Se Ge 


12 
PAR 18-5 -1984 01:22:31 VAX=11 Bliss-32 v4.0-742 Page 18 eer t 
YO4~ 000 17a een eee eee teeters etree mouran.es2nke” (LS 
42 1 SF BNEQ 7$ ; 
10 3¢ ; CHL DEVICE_COUNT, #16 ; 
03 AB 40 BF BISB2 #64, MOUNT _OPTIONS+3 + 0884 
3C AB C INCL Device COURT : 0885 
50 3c AB { f ASH 8 DEVICE COUNT, RO : 
31 é ¢ 4 MOVZWL CifEM) R : 
7 ne : 
51 F D 7C MOVL #63, R1 : 
00A4 (B40 1D 7F S$: MOVL. 1, DEVICE_STRING-8[RO] : 
51 ¢ AB F § 5 MULL3 wes DEVICE COUNT, Rl + 0887 
OOA8 CB4 9000'CE 1 9€ a MOVAB EVICE BUFFER R1J. DEVICE_STRING-4CROJ : 
OA B40 Db 33 PUSHL eVIC “STRING-4CROJ ; 0888 
58 00728084 er bo mA 6$: ROVL #7504004, STATUS ; 0881 
02 58 81 OA 7$: CMPW sR, #2 + 0893 
4 is BNEQ 1 $ 
10 40 ap t a8 CML LABEL_COUNT, #16 ; 
03 AB 8 HF 48 Ae BISB2 #128, MOUNT_OPTIONS+3 + 0896 
40 AB 06 ° B INCL LAB : 0897 
50 40 AB 01 0B6 ASHL #1, LABEL COUNT, RO > 0898 
31 6 3¢ 00088 MOVZWL (ITEM), RT : 
; iam ge, : 
51 F Dp OC OVL #63, R1 ; 
0124 CB40 1 00 Cé 8$: MOVL_ R17, LABEL_STRING-8CRO) : 
51 4 AB F ¢5 000CC MULL3 #63, LABEL COUNT. R1 : 0899 
0128 cB4 9099" Cedi 9€ 00001 MOVAB LABEL_BUFFERCR1J. LABEL_STRING-4CROJ ; 
0128 CB40 0D OOODA PUSHL LABEL"STRING-4CROJ + 0900 
6p 11 OOODF 98: BRB $ F 
58 0072808c 8F 00 oe] 10$:  MOVL #7504012, STATUS > 0893 
43 11 00068 11$: BRB tt 3 F 
03 3 8} EA 128: CHP if a3 ; 0905 
03 AB 20 as EF BISB2 # ; MOUNT_OPTIONS+3 > 0906 
50 : C OO0FS MOVZWL (ITEM), RO : 0907 
. Ot a | 
50 3 08 FB OvL @ $ 0 : 
85a oF oe 105 | > = HOVAB COG_NARE BUFFER, LOG_NAME*4 ; 9908 
itt F 9F 001 PUSHAB LOG-NAME-BUFFER =~ : 0909 
23 a : 
FB 001 ALLS #3, COPY_ITEM : 
one Pee aa Baar ; 
60 8B SC AB A BA 1 Loce #36, LOG_NAME, @LOG_NAME+4 ; 0914 
s eee 
6 1 BEQL mig : 915 
SC AB SA 60 ¢ 1 SUBL3 | G_NAME+4, PTR, LOG_NAME : 091 
0243 12D 15$:  BRW es : 0918 
06 52 B1 00130 16$:  CMPW R2, #6 : 0921 
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you000 1ergeen 138s Pb:E8:3] Whe binGAASFERscHUdT SecamoupaR.e3204%" «L 


0 }é i SOY TUL PF em) RO + 0922 
3 ei 1 CMPW ng #63 ; 
1 BLEQU 1 $ : 
50 F DO 001 MOVL H » RO : 
54 AB 0 p 140 17$ MOVL RO, ACP_STRING : 
8 AB 9900" CF 9E 0014 MOVAB ACP_NAME_BUFFER, ACP_STRING+4 : 09 3 
000" CF 9F O014A PUSHAB ACBCNAME BUFFER + 0924 
11 0014 188: BRB 21$ : 
07 100156 19$:  CMPW Rg #7 + 0927 
2 001 BNEQ 22$ F 
0 - 1 MOVZWL (ITEM), RO > 0928 
F B1 001 CMPW ORO, #63 : 
18 158 BLEQU 2 : ; 
50 F 00 0015 MOVL Ht: » RO ; 
64 AB 0 pd 160 208 MOVL RO, STRUCT_NAME ; 
68 AB 0000° cf ; 1 ROVAB VOLSET_ BUFFER STRUCT_NAME +4 + 0929 
0S AB 1 8 16A BISB2 #1, MOONT_OPTIONS+ + 0930 
0000' cr F 001 PUSHAB VOU SET BUFFER + 0931 
F pp 172 21$:  PUSHL : 
or 1 0017. BRW 54$ ; 
04 P| O17 22$: CMPW R2, : 0938 
05 12 OO17A BNEQ : 
08 AB OF OO17C PUSHAB MOUNT _FLAGS F 
o¢ 11 0017F BRB 24 ; 
05 B1 00181 238:  CMPW R2, #5 + 0940 
OA if 01 BNEQ 2 ; 
03 AB 2 1 BISB2 #2, MOUNT_OPTIONS+3 > 0941 
20 AB 9F OO18A PUSHAB ACCESSED > 0942 
01D 1 0018D gas: BRW ; 
08 2 B1 00190 25$:  CMPW R2, #8 + 0945 
31 if 19 BNEQ F 
02 AB 1 8 19 BISB2. #1, MOUNT_OPTIONS+2 + 0946 
24 AB OF 0199 PUSH BLOCKSIZE + 0947 
04 DD 0019¢ PUSHL @ : 
DD 0019: PUSHL ITEM ; 
0000v cf Q FB OO1A CALLS #3, COPY_ITEM F 
8 DO OO1A MOVL RO, STATO : 
82 58 €9 001 BLBC STATUS, 15$ : 
OOOOFFFE  8F 24 AB pi 1A CMPL BLOCKSIZE, #65534 ; 
09 ar i is 26$ eRe 4 s "9 : 
40 i 188 BNEQ 2 F 
68 1 1BB BISB2 #1, MOUNT_OPTIONS : 
6B : A 1BE BICB2 #2. MOUNT-OPTIONS ; 
‘05 AB A 001C BICB2 #8, MOUNT-OPTIONS+5 : 
— 0D es PUSHL SP : 
4 dD O01C PUSHL #4 : 
DD 001¢9 PUSHL ITEM ; 
0000v CF : FB OOIC CALLS #3, COPY_ITEM ; 
£ dO 001 VL OR STATOS : 
8 E9 001D BLBC STATUS, 31$ : 
3 dO 001 MOVL DENSITY, RO F 
00000320 BF : 1p cHPL R P #806 ; 
68 eh 1E BISB2 a MOUNT _OPTIONS : 
A 1E BRB 31§ : 


2 


2 
PAR 16-Sep-1984 1 VAX=11 Bliss-32 V4.0-742 0 
~000 oreo aes ees] east eee Mbatr Secamouran.es2rke” cas 
00000640 = 8F 167 278: cul RO, #1600 : 0964 
0S «a 15 B1$82 ‘ , MOUNT_OPTIONS+5 : 
0000185A 8F p 176 28$ CMPL #6250 + 0965 
83 bolFD BEQL HE 3 . 7 
58 00728014 f t FF MOVL #7203892, STATUS : set 
OA 81 298 CMPW sa, #10 : 0971 
35 je BNEQ ft : 
30 AB F PUSHAB EXT_CACHE + 0972 
: dD PUSHL #4 : 
0D 0021 SHL ITEM ; 
0000v cf FB 1 CALLS #3, COPY_ITEM : 
8 p 19 MOVL RO. STATOS : 
0S AB A F BA ; BICB2 #160 MOUNT _OPTIONS+5 + 0974 
3 AB D5 TSTL ie ac + 0975 
78 14 4 BGTR ; 
05 AB 80 gF 83 6 B1SB2 aie 8, MOUNT_OPTIONS+5 ; 0977 
08 52 81 D 308: CPW Re #11 : 0983 
2c AB OOF : PUSHAB FID_CACHE + 0984 
04 DD PUSHL #4 ~ : 
: DD 7 PUSHL ITEM ; 
0000v ct Q F 9 CALLS #3, COPY_ITEM : 
8 0 »D E MOVL ATOS : 
0S AB 0120 8F AA 00241 BICW2 #288, MOUNT_OPTIONS+5S > 0985 
01 2c AB pi 47 CML FID_CACHE, #1 ; 0987 
06 AB gi 88 4D ag 8182 ny MOUNT _OPTIONS+6 ; 0989 
0c 32 8} i 338: cMPW R2, #12 : 0995 
38 AB OS § PUSHAB EXT_LIMIT : 
Q 11 00258 BRB : 
0D 3 81 5D 33$: cMPw R2, #13 ; 0997 
02 AB 04 as BIS62 #4, MOUNT_OPTIONS+2 > 0998 
10 AB F PUSHAB ER_UIC : 0999 
74 11 348: BRB : 
OE 3 a) 5$: ey #14 ; 1002 
02 AB $5 as b BISB2 MOUNT_OPTIONS+2 : 1003 
0c A oF 4 PUSHAB it 31 
OF i 8} 19 36$: chew R2, #15 : 1007 
34 AB OOF fF PUSHAB aQUO_CACHE : 1008 
9 DD PUSHL @# : 
DD 3 PUSHL ITEM : 
0000v cf FB CALLS #3, COPY_ITEM : 
8 D A MOVL STAT : 
0S AB 0230 F AA BICW2 #544, MOUNT_OPTIONS+5 > 1009 
4 D5 TSTL 9u0_CACHE > 1011 
08 4 BGTR 3 ; 
06 AB > 88 BISB2 #2, MOUNT_OPTIONS+6 > 1013 


ll cl a ll ll el el ll el cl cl cll 


13 
PAR -$ep-1984 01:22:31 VAX-11 Bliss-32 V4.0-742 Page 21 
yO4-000 18-Sen-1984 04:38:31 DISKSVMSMASTER: CMOUNT .SRCIMOUPAR.B32: 1° 3} 
1 C BRB 4 ; 
0S AB § a 3 7$:  BISB2 # . MOUNT_OPTIONS+5 : 1015 
¢ A gs: BRB 4 : 1 18 
10 i 1 a $: CMP R2, #16 + 101 
06 AB 0 § a9 BISB2 #32, MOUNT_OPTIONS+4 : 1020 
28 AB 9F OOCAD PUSHAB RE CORDSZ + 1021 
4 DD 0008 PUSHL @# : 
DD 0028 PUSHL ITEM : 
0000v ct F B CALLS #3, COPY_ITEM : 
i Ee : 
QOOOFFFE  8F 28 AB Di BF sie cHPL R ene #65534 + 1023 
58 0072817C¢ Br 00 ' 4 MOVL #7504252, STATUS : 1025 
OO9F 31 pe 41$: BRW : 1026 
11 32 81 0 D3 42$:  CMPW  R2, #17 + 1029 
8 § + BNEQ 4 : 
03 AB 1 88 002d BISB2 #1, MOUNT_OPTIONS+3 + 1030 
1¢ AB OF 0020C PUSHAB WINDOW + 1031 
72 11 OO2DF 43$ BRB 51$ ; 
12 52 Bl O02E1 44$ CMPW SS séRR2,, «#18 + 1034 
OA if 02E4 BNEQ 468 : 
02 AB 80 8F 8 00 £6 BISB2 #128, MOUNT_OPTIONS+2 + 1035 
18 AB 9F O002EB PUSHAB EXTENSION + 1036 
71 11 OOCEE 45$: BRB 3$ : 
14 32 B1 002FO 46$:  § CMPW Re #20 + 1039 
6 if O2F BNEQ 488 F 
68 0 ; O2F BISB2 #8, MOUNT_OPTIONS + 1043 
51 66 C 002F8 MOVZWL (ITEM), RT + 1044 
0050 8F 1 B1 O02F cMPW CORT, #80 : 
51 50 Br on 80 ROY ZBL <7 RI : 
27 00006 ct 3 0306 47$: MOVZWL NEWLINE. R7 : 
4C AB 1 7 ci 0 ADDL3 R7, R1, COMMENT_STRING F 
50 AB 0000° cr : 031 MOV COMMENT BUFFER, COMMENT_STRING+4 > 1045 
0000" CF 00006 DF 7 é 0216 MOVC3) R7, @NEGLINE+4 COMMENT BUF FER + 1046 
ooggerae Br Ae USAR ging Burren BS 
6E ce MNEGL (SP), (SP) F neat 
15 iH B 48S: cMPW R2, #21 : 1053 
59 1 MOVL #1, JRNL_ITEM_SEEN : 1054 
Olac ¢ oF PUSHAB RNL_SIZE ~ : 1988 
16 81 9498: CMPW R2, #22 : 1058 
3 Cc BNEQ 3 
59 1 p MOVL #1, JRNL_ITEM_SEEN : 1059 
0180 (CB 9F 0034 PUSHAB JRNL EXTEND : 1060 
A 11 0034 BRB $ ; 
17 é iH 47 50$ cMPy R { #23 > 1063 
59 1 p 4C MOVL #1, JRNL_ITEM_SEEN > 1064 
01B4 if oF , re PUSHAB Rit QUOTA > 1065 
18 § B1 25 CMPW a3 #24 > 1068 


Ss 


Be Se Se Se Oe Se Be Se Se Se Se Se FO Se Ge Ge BFFs Ge Se FF Se Se FH Se Ge Se FH Ge Ge Se oe Se FO Se Ge FH Se Se Se FF Se Se Fess Fe eSe SF eeSs Be eeee sees 


22 
13 : ~32_V4.0-742 pyse 
1$-$e0-1984 93:28:31 DESSUmGmASTERSCMOUNT-SRCIMOUPAR.B32~9°° (25 
vB6=000 15 1 8 BOVE #i> JRNL_ITEM. SEEN : 1968 
gee 06 sh PUSHAB JRNLRECORD_STZE ; 
ramets 3$:  PUSHL 
DD ; Sa: CALLS FSS COPY_ITEM : 
000v CF f MOVL RO, STATOS : 
“ 4 0 s BRB C5 $ 1073 
1 Dd P MOVL ie P STATUS $ 1076 
58 c PB daeee see; | MONE, Bad FTar ; 0860 
56 o¢ ¢ wi een ae : 1083 
FCgr 2k Boat BLBS STATUS, 58S : 
sa orga Sf Cosme BR b98 #1, MOUNT _FLAGS+3, RO ~— 
- 1 04 EF a 788: TNS. ROL MOL le MOUNT OPT IONS+7 : 1100 
07 AB eo Og 86 EF OO3BA TNSY, ROL AO, 1, MOUNT OPT SCNS#1 - 4101 
4 ihe 09 5 Er 4 EXTV fl. Ag A Pe + 1102 
i. a $7 50 FO aR ENTYV 8S: #1, MOUNT FLAGS#2. RO : 
$5 OA AB 4H 30 Oe BeAr TNSV RQ. ie. #1. MOUNT ,OPTIONS+6 : 1103 
P) #3, #1, MO ; 

01 06 F 00380 EXTZV #3, » MOUNT OPTIONS+5 £1106 
* 8 og a 2) ee net ae He 
a i A Me ne a Pines 
= .§ 09 8 bg 35 FO i cE EXTIV Re, AT, MOUNT-FLAGS., RO 

$8 08 AB 91 8 62 00309 MeCN’ ORO’ BT, #1, MOUNT _OPTIONS#1 : 1107 
Sor aes | PB BE) pospnceg” poe 
” 80 OA AB b4 3) FO O3E INSV 2 ‘nh. AOUNT FLAGS+2, RO : 

o1 ‘ EF OO3EE INSY ROL AS. #ie MOUNT. OPTIONS+6 4109 
coe 8 8 a a ie 
“ 8 09 AB of 5 FO Bie EXT #3. Og Et SR at 
06 AB 01 3 04 INSV RO, #3, MOUNT FLAGS+1, RO : 

4 van 05 30 fp 13 CR le MOUNT. OPTIONS +4 emesel an 
=" s 09 AB 01 80 FO O0a1 INSV MOUNT FLAGS#2, #6 #1 , MOUNT 0 : 111 
06 AB 91 06 OA 0 if EXT YY Ry #1, MOUNT FLAGS, RO 
05 AB 1 MCOML , T_OPTIONS+6 = 4114 

nis ke : a : a One Me OT 
0d AB 08 AB r INSV UNT-FLA NT FLAGSO1. - : 
eS 01 j} OT EF Gage NSW ae ie We ROUNT SPT fonss2 : 1117 
2g 7 & eh) ae ee ime 

50 09 5 6 EXTZV #7, #1. BOON nm wep ; 

01 EF 0045A #6, #1, MOUNT OPTI > 1119 

= 8 } i) a f OPTIONS+ ; 1120 
5 08 AB 6 of BISB2 #128, MOUNT oO Tees. RO : 

04 AB 01 01 a w : Tase ng. i a} MOUNT BT LON 1 : 1121 
$0 oA oe 9 £0 0047 EXTZV #5, #1, MOUNT _FLAGS#2, 

o1 AB 
5 OA AB 


S38 


23 
dD 13 99. - Liss-32 V4.0-742 Page 4) 
1-88-1986 12:48:31 DISKSVMEMASTERSCMOUNT.SRCIMOUPAR.B3253° 
PAR NT_OPTIONS+6 + 1122 
i . PARR Wh BB: otra = 
06 1 ; INSV = RO, A: ‘ +2, R : 
. 2 FO 004 > MOUNT FLAGS+2 ‘ 
og og eh oe By OST ariower i ty 
7 ® 8 ! 08 AB FO O0e ANtYy PTO AT. MOUNT. FLAGSSS. : 
7 1 . i EF OOGA a ae a: ne MOUNT Opt fons? + 1126 
a ; ee Ge gt tia 
7 f° B | eae TB GB: Respite” ss 
07 AB 1 4¢ AXT2v BS. Aa, MOUNT FLAGSOS. oR : 
- 50 08 ae ; EP rh EXTZV H+¥ ae m1 ROUNT OPT fons+7 + 1139 
R eae r 8 ES docs SLB ROUNTOPTIONS+?» B08 ; 
07 AB 01 08 07 AB ED 0040 TST8 ph sera 
Q 
03 18 0040 BGE $ 3 1140 
GDB 598: BRW N, 61$ 
4 8) Eo te] = «BEBE. MOUNT-OPTTONS+?, "598 : 1148 
6 aa 03 tes ois: FST ACP STRING pp 
4E8 BEQL STR_DESCRIPTOR : 1156 
2 at ee O4EA MOVIL CSTR DESCRIPTOR. TPARSE BLOCK SS : 412 
gon aH) BUM on aeelcrtus, ouabre at 
oe gly OD oe PUSHAB ACP _KTB ; 
Q000y CF 9F OO4FD PUSHAB TPARSE. BLOCK ; 
0000" cr 9F 00801 CALLS. Be LIBSTPARSE 
ens ae 53 09 O30¢ Blas STATUS. O38 3 1160 
0% 3 bo O32 628: ROVE STATUS. RO = 1166 
30 051 RET MOUNT_OPTIONS+3, 64$ > 1165 
3 ta 816 63$ oar oye paar ae 65$ 6 : 1168 
en ee oe cece ee Ng 
5 AB 04 A356 00594 Bet hg: ROUNE OETHONSS?” B68 : 1179 
08 37 a8 06 i 03 65$ ° .. HOU T_OPTIONS + eens 
BLSS ONS+1 : 1187 
i 8 BBS, #6, MOUNT-OPTIONS, 67S :11 
a ". & Be 0S%a ' FetR MOUNT OPTIONS ces 
1 C BLSS T_OPTIONS+1, 67$ > 1191 
BLBS ° 7 
ee ee ca ae Sie 
1 Ef 6A ‘ BLBC - 6 TIONS, 75% é 
sa i ES 4 Sees re TOPTIONS+1,. £58 : 1206 
70 ge 7 8 F 68s: EXTIV ef § MOUNT OPTIONS+1., Rt : 1207 
51 01 AB if $ E> 00558 BBS; #6. MOUNT OPTIONS, 75S 
4 : Bras ORS, sh : 1215 
SF 98 E BBC’ «#6. ROUNT_OPTIONS, 708 : 1316 
c 698: BBC, as “ 
s ES : BLBS. | R2, 758 
) . § C 


} 
| Fe 


AB 
GA 
i 
03 AB 
» if 
8 
AB 
8 
; 
AB 
Soe i 
09 05 0 
Res 
50 0072802C a 
50 000000006 5 
OA 
06 6 8 
5 281C F 
OA 51 
06 0 ge 
0 2814 F 
OA 03 AB ¢ 
05 03 AB 
cet ; 
8 2894 8F 
09 03 hy 0% 
30 2804 F 
50 01 


13 


or 


70$: 


75$: 
76$: 


FOLOND FN COSOMOVOFLOOCOCSLOWOMVOsDo0dd— ££O00 Ou 0Ooo— 


OVS QUIMMOUIM MMM OWN MOUIMMM SO OS — GMMmMmmmmmmmMmoOoomm—Ommmmrmnrn 


3; Routine Size: 1557 bytes, Routine Base: SCODE$ + 0000 


-Sep-1 
b-tep-1 


SR 


Sor uperee 
“oe “an 


[ om 


z@=z 
ma 
NNN ACKMNYNHAOYOW 


BBS 


iat, 71$ 


MOUNT_OPTIONS, _75$ 
HOUNT OPT IONS+3, 728 
T_OPTIONS* 


: 
; 


e* fe 8 8 8 


#6, MOUNT _OPTIONS+2, 73$ 
z MOUNT OPT IONS¢ ; 74$ 
#26, R 


+ MOUNT_OPTIONS+ 


rt MOUNT_OPTIONS+1, 768 
* MOUNT“OPTIONS?#3, 75$ 
N +3; 75$ 

75$ 


ff + 
ROONT OPT TONS 3, 75$ 
pac 


#7303916, RO 
TL$ PHD, PHD 
gat SShe 


#3. (PHD), 77$ 
#16268, RO 


Hy Ht +N 78$ 
Fib260" rb 


2. MOUNT_OPTIONS+3, 79$ 
#3, MOUNT-OPTIONS+3, 79$ 
#4. MOUNT OPTIONS* , 81$ 
ai (PHDT, 80$ 
#10388, RO 

#4, MOUNT_OPTIONS+3, 81$ 


(PHD), 818 
#10244, RO 


#1, RO 


VAX=11 Bliss-32_V4.0-742 
DISKSVMSMASTER: CMOUNT . SRC 


JMOUPAR.B32097" ( 


Pe Se Ge Se Be Se Ge Se Se Se Se Se Se Se Se Ge Ge Se Be Ge Ge Se Se Fe Se Se Se Se Ge Se Se Ge Se Fe Se Seve Se Be Fe Se Fe Bee 


4 
) 


hMorory 


ed aed ds os td th ad eb Be ed os 
=OODNOUESW NUS Wnouse 


Mre~w = Pfororor 


= 
™~ 
Wr on VWNOS 


—— —> 4 3) eds ed ced ib 
co See 
Oo NM 


395 
1292 
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f 

jPAR 16-Sep-1984 01:22:31 VAX-11 Bliss-32 V4.0-742 Pp 
yOL~000 eae aee Obi ee eT Pa GhA et ERS cMcuuT SkcamouraR.e320he" (85 
: 176 ! ; ! ROUTINE COPY_ITEM (ITEM, DEST_SIZE, DEST_ADDR) = 
; 8 1305 1 t+ 
; f : ! Functional description: 
: 781 1 3 1/ Given an Lb a descriptor block, this routine will ns ig the 
3; 7 ¢ 1309 1! data described by the ees port a to an internal storage 
3; 7 1310 1! area. The item descriptor b ore $s eg to reer have been 
3; 7 1311 171! probed for read access, and this routine is responsible for 
. f 5 : i; } } probing the actual data for read access before copying it. 
rt HS | | tour 
: 789 1 1g 1} ITEM : Address of an ITEM descriptor block. 
; 790 1317 1! DEST_SIZE : The size, measured in bytes, of the internal storage area. 
: 738 : 18 : DEST_ADDR : The address of the internal storage area. 
; 79 1320 1! Implicit Input: 
794 1391 710” ie 
: ry? : ¢ : None. 
; 791 4 Output: 
: 799 1 6 1/ None. 
; 800 1 1! om 
: 9) : g : : Implict output: 
3 808 : : None. 
3 80g ! ¢ ' Side effects: 
; 807 4 None. 
; B08 F } Routine value: 
: 811 1338 1 SS$_ACCVIO : The data item could not be read accessed. 
8 ai¢ 1333 1! is ARAM : The data item had a zero length. 
; 81 1340 1! SS$_BUFFEROVF =: The internal storage area was not large enough 
: 814 1341 1! to contain the entire data item. 
: i : § ! : SS$_NORMAL : The data was successfully copied. 
: 817 1344 1— 
; 18 \ j BEGIN ! Start of COPY_ITEM 
; 820 1 
; : 1 \ 3 ITEM : REF BBLOCK; ! Item descriptor block 
; i 1 30 BUILTIN 
: 3 ! se PROBER; ! MACRO-32 PROBE instruction 
; 1 LOCA 
3 $ 1 3 LOCAL_LENGTH 
i 898 1335 LOCALADDRESS; 
; 1 $ ' 
: 1 1 3 ' Copy the item bength and address to internal storage. 
; 832 1 ! Reject tems with a length of zero or length greater than 512. 


Be Se Se Se Se Ose Be Be Se Se Be Se Be Se Ge Be Se Ge Ge Ge Fe Ge Se Fe Se Se Ge Ge Ge Se Fe Se Se Ge Ge Se Se Se Sees Se Sess Se Sess Se Se Sseee Se See Ve Veeses ee 


seeereerscoarara é 


DONAOVULESWN "OOONOULS WIN 


029.00 0909 C9 C9 CO nD 
APNVUIUIVIVIUUIVIUT 


FERSESS 


08 


AC 


ek ts et a 8 8 ot 8 st Ss dt 


seae V4.0-742 


yfcSeort96e 12831 y 


=> 
wy 


$2 


CAL_ADDRESS = tient ApDress); 
CAL LENGTH = : 


COCAL ‘tenet tea 5 OR (.LOCAL_LENGTH GTR 512) 
“RETURN (SS$_BADPARAM) ; 


' 
LO 
LO 
IF 
} 
: Probe the data area for read access. 
if NOT PROBER (ZREF (0), LOCAL_LENGTH, .LOCAL_ADDRESS) 

RETURN (SS$_ACCVIO); 

copy the data to he internal storage area. If the data item 

oo large it will be truncated, if it is too small, it will 

: zero-padded to Hee the internal storge area. 
CHSCOPY (.LOCAL LENGTH, .LOCAL_ADDRESS, 0, .DEST_SIZE, .DEST_ADDR); 


i If the data item was too long to be copied in its entirety, 
return a status code to indicate such. 


if .LOCAL_LENGTH GTR .DEST_SIZE 

RETURN (SS$_BUFFEROVF); 
SS$_NORMAL ! Normal exit value 
END; ! End of COPY_ITEM 


007C 00000 COPY_ITEM: 


.WORD Save R2 R3,R4,R5,R6 
50 04 Ac v0 MOVL ITEM 
51 04 Ab 0 MOVL 4(ROS, RLOCAL ADDRESS 
56 60 3¢ MOV ZuL (RO), *LOCAL_CENGTH 
00000200 8F Ht i CAL _—~ _LENGTH, #512 
50 14 6 ROVL #20, RO 
61 56 0 PROBER #0, LOCAL_LENGTH, (LOCAL_ADDRESS) 
M4 ; BNEQ 3$ 
50 C i MOVL #12, RO 
00 61 56 2c MOVCS LOCAL_LENGTH, (LOCAL_ADDRESS), #0, 
0c ¢ DEST Size @EST_ADDR 
08 Ac 6 ! cHPL LOCA CoLENGTH, DEST_SIZE 
50 0601 «=F i MOV ZUL #1537, RO 


TER: : CMOUNT . SRC JMOUPAR .B32 


ne 


3 


23 


vO2-000 AEREDCHSHE QGREHT  YIMEHABALRNERZchboB”SRconournn.osc%t%* 


50 01 9 90034 4$: nove #1, RO : 1391 
; Routine Size: 62 bytes, Routine Base: S3CODE$ + 0615 


novPaR ybcdeo-t9ge O1:2¢s81  yanedt ettas: 


Dus 


2.v4.0 
: CMOUNT . rERCIMOUPAR. 832; Ly 8 


eo 
iw What follows are the TPARSE table definitions. 


nwOD 
Wir 


1 
; Parse /PROCESSOR options, set bits and store name. 


SINIT_STATE (ACP_STB, ACP_KTB); 


NAME WIN O 


SANS NN 


LEBRENLSSSLSEAE 


: 1 1 
; 1 1 

; 1 1 

; 1 1 

; 1 1 

; i 1 

; 1 1 

: 1200 

; P1401 1 S$STATE (, 

; P1402 1 (*UNIQUE',, “OPT_UNIQUEACP, MOUNT_OPTIONS), 
; P1403 1 ((DEVICENAME),,,1°OPT-SAMEACP, | MOUNT-OPTIONS), 
3 : P 14 ¢CFILENAM see I*OPTIFILEACP, MOUNT OPTIONS) 
; 1406 1 ’ 

; 881 P1407 1 $STATE ( 

: 2 P1408 1 (fPAS_EOS, TPAS$_EXIT) 

: i Fhe 

: 5 1411 ; Syntax definition for a file name. 

: 88 P 1218 1 $STATE (FILENAME 

3 P1414 1 (TPA web FILENAME), 

: 889 P1415 1 (" 

: 890 Pp 1416 1 (ree? FE ItENAM ): 

: 891 P1417 1 (ThAg$_LAMBDA, ETPAS. EXIT) 

oa Bee, 

; oe 1 : Syntax definition for a device name. 

: B34 P 14 Q 1 $STATE (DEVICENAME, 

: 89 P1423 1 (TPAS_SYMBOL) 

a wey 

: 900 P 14 g 1 SSTATE (, 

: 901 P 1427 1 (fs *) 

: 308 1258 3 

> 904 P 1430 1 $STATE ( 

: 905 P1431 1 (fPAS_EOS, TPAS_EXIT) 

: 906 14 : 1 ); 

; 90 14 1 

; 908 14 0 


END 
ELUDOM 


-PSECT _LIBSKEY1S,NOWRT, SHR, PIC,1 
00000 ; TPASKEYSTO 


0.2:  .BL 0 
45 55 51 49 4E 55 00000 ,TPASKEYST 
ape: a ASCII \WNIQUE\ 
FE 09006 © ateaskevILt ' j 


-PSECT _LIBSSTATES,NOWRT, SHR, PIC,1 


se 


Se a a a a im Aa A li a i Ma a i ig i eli a img ai A: ml i i ass. as i ss 


PAR 
-000 


00000000" 00002 : fPASADDA 


00000000* OO00E ; 
08000000 00012 ; 


00000000* eemad | 
10000000 O00tE : 


1}-$ep~198 Po ees] Peed ShAS TERS chGuRT SecamouPAR.8320 


(0000 ACP_STB:: 


K 
6100 00000 s TPASTYPESe . 
WORD 


U.6: 


04000000 00006 S TPASMASK- 


ae LONG 

69F8 O000A AtBASTYPE 

0000* 0000C ; PASSUBEXP 
6.10: .WORD 


6DF8 00016 ; 
0000+ 00018 ; 


15F7 00022 ; 
FFFF 00024 ; 


11F1 00026 ; 
0000* 00028 ; 
102E 0002A ; 
0000* 0002C ; 
1038 O002E ; 
0000* 00030 ; 
15F6 00032 ; 
FFFF 00034 ; 


OSF1 00036 ; 
043A 00038 ; 
15F7 0003A ; 


AS 
pee 
ASTYPE 

FFFF 0003C at as 


.WORD 
STARGET 
- WORD 


0 

24832 
<<MOUNT_OPTIONS-U.6>-4> 
67108864 

27128 

<<U.9-U.10>=2> 
<<MOUNT_GPTIONS=-U.11>=4> 
134217728 

28152 

<<U.14-°U.15>-2> 
<<MOUNT_OPTIONS-U.16>=4> 
268435456 

5623 

-1 

0 

4593 

<<U.14-U.22>-2> 

4142 

<<U.14-U.24>-2> 

4155 

<<U.14-U.26>-2> 

5622 


es 


a a a i a es sa ss ee ss ee es ss ss as as ss 


K 13 
PAR Se 1 VAX-11 BL Ales -32 V4.0- 
VO4-000 12 Sep- 198 9%: 28: 3 DISKSVMSMASTER: CMOUNT. SRCIMOUPAR. B32: 7 ars 
~PSECT _LIBSKEYOS,NOWRT, SHR, PIC,1 
00000 ACP_KTB:: 


LKB (OO 
00000 gipasKerd ots 
0000* 00000 : TPASKEY. 
U.3: ~ WORD <U.2°U.1> 3 


; PSECT SUMMARY 

; Name Bytes Attributes 

: $GLOBALS 444 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; $ 2324 NOVEC, WRT, RD oWOE NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; SCODES 1619 NOVEC.NOWRT, RD. EXE.NOSHR, LCL, REL, CON, ,NOPIC,ALIGN(2) 
; LIBSKEYOS NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
5 pieces ales 62 NOVEC pnts RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
;  _LIBSKEY!1 NOVEC,.NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
: Library Statistics 

cg Ae a neta Symbols -<------- Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBILIB.L32;1 18619 38 1000 :02.0 

3 ~Be5Ssouage: vst LBJCLUAAC.L2:1 14 8 a 00:00. 

3; —_$255SDUA SYSLIBJTPAMAC.L32;1 42 2 61 14 0:00.2 

: COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:MOUPAR/OBJ=0BJ$:MOUPAR MSRC$:MOUPAR/UPDATE=(ENHS$ :MOUPAR) 
3 i ae 0 oS *) + 2840 data bytes 

: Tlesned Tine: 

3 Lines/CPU 

3 Lerenes/CPURin: ee 

; is pages 
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